home *** CD-ROM | disk | FTP | other *** search
/ Ultimedia 2 / Ultimedia 2.iso / tools / soundtools / protracker / source.lha / makehelp.s next >
Text File  |  1991-12-17  |  497b  |  33 lines
  1. ; Use this to make helpfile offsets
  2. ; load file at $40000, run and save from
  3. ; $40000-1024 to $40000+filelength
  4.  
  5. main    LEA    $40000,A0
  6. mloop    CMP.B    #94,(A0)+
  7.     BEQ    nose
  8.     CMP.L    #$50000,A0
  9.     BNE    mloop
  10.     RTS
  11.  
  12. nose    MOVE.L    A0,A1
  13.     SUB.L    #$40001,A1
  14.     MOVEQ    #0,D0
  15.     MOVE.B    (A0)+,D0
  16.     SUB.B    #'0',D0
  17.     CMP.B    #9,D0
  18.     BLS    nose2
  19.     SUBQ.B    #7,D0
  20. nose2    LSL.B    #4,D0
  21.     MOVE.B    (A0)+,D1
  22.     SUB.B    #'0',D1
  23.     CMP.B    #9,D1
  24.     BLS    nose3
  25.     SUBQ.B    #7,D1
  26. nose3    OR.B    D1,D0
  27.     LSL.W    #2,D0
  28.     LEA    $40000-1024,A2
  29.     ADD.L    D0,A2
  30.     MOVE.L    A1,(A2)
  31.     BRA    mloop
  32.  
  33.